COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE ∪↔	To list items into n columns on a page (skip 1 less than no. rows)
C00003 ENDMK
C⊗;
αXDEFINE ∪⊗↔⊗;	To list items into n columns on a page (skip 1 less than no. rows)
αβA⊗;		Pick up the first item
αβ4αβ9⊗↔αβ+αβcαβ4αβ9⊗↔αβ+αβcαβ4αβ9⊗↔αβ+αβcαβ4αβ9⊗↔αβ+αβc⊗; Skip 49 and copy five t.
αβ4αβ9⊗↔⊗→αβe⊗;	Skip 49 <form> and deposit
α⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αd⊗; Collect 6 items separated by ⊗
α⊗=\cr⊗↔⊗; Go to the end, add \cr and do a <cr>
αl⊗;   return to top of list
αβ⊗↓⊗; exit